home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
cli
/
mx2src.arc
/
XA.MOD
< prev
next >
Wrap
Text File
|
1989-01-05
|
545b
|
19 lines
MODULE xa;
FROM SYSCALL IMPORT SpintInfo,Trigger;
FROM GEMDOS IMPORT Term;
FROM Terminal IMPORT WriteString,WriteLn;
VAR spintcmd : POINTER TO ARRAY [0..2] OF LONGCARD;
ok : BOOLEAN;
BEGIN
IF SpintInfo(1,spintcmd) THEN
spintcmd^[0]:=99;
ok:=Trigger(1);
ELSE
WriteLn;
WriteString("Background xmodem not running");
WriteLn;
ok:=Term(-1);
END;
ok:=Term(0);
END xa.